COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION E(100),F(100),G(100)
C00005 ENDMK
C⊗;
	DIMENSION E(100),F(100),G(100)
204	TYPE 110
110	FORMAT(' TYPE RHYTHM LINE 1  --'$)
210	FORMAT(' TYPE RHYTHM LINE 2  --'$)
310	FORMAT(100F)
	ACCEPT 310,E
	TYPE 210
	ACCEPT 310,F
	X=0
	DO 100 K=1,100
	IF(E(K).EQ.0)GO TO 101
	KE=K
	A=4/E(K)
	E(K)=A
100	X=X+A
101	Y=0
	DO 200 K=1,100
	IF(F(K).EQ.0)GO TO 201
	KF=K
	A=4/F(K)
	F(K)=A
200	Y=Y+A
201	IF(ABS(Y-X).LT.01)GO TO 202
	TYPE 203
	GO TO 204
203	FORMAT(' MISMATCH')
202	CALL RHYTOT(E,KE)
	CALL RHYTOT(F,KF)
	K=1
	L=1
	M=0
19	KK=K
	LL=L
1	SM=10000
	K=K+1
	IF(K.GT.KE)GO TO 10
4	L=L+1
	Y=F(L)
	B=Y-F(L-1)
	IF(B.LT.SM)SM=B
2	X=E(K)
	A=X-E(K-1)
C  A AND B HAVE TRUE DURATIONS NOW
	IF(A.LT.SM)SM=A
C SM = SMALLEST RHYTH VALUE BEFORE NEXT CON↓)βπP~∀∪∪_Qβ¬&!0[2R9→(\\@bS∂≡↓)≡@f4∃εA∃U≠ A∪_A#+¬_A%⊃e)⊃&~(∪∪Q`]∂(]dS∂≡AQ≡@h~(∪⊗{⊗,b~∃ε↓') ↓
∨%/¬%λA+9)∪_A`A∪&@9∂(\Ad~∀∪∂<A)≡@H~∀f∪%Q⊗]9
]↔⊗,bS∂≡↓)≡@bL~∀∪∪_Q_]≥∀]→_VDS∂≡AQ≡@bh4∀∪~{4Vb~∀%∞Q~Ru
Q↔⊗$~∀∪∂<A)≡@Dr~∀bL∪∪Q0]≥
]1_VbS≥≡A)≡bj~∀%	≡@bXA∀{↔,Y⊗Zb4∀∪~{4Vb~∀Dl∪∞Q4R{
Q(R~∀∪≥≡A)≡br~∀Dh∪	≡bnA∀u→_Y_4b~∀∪4{~Vb4∀bn∪≤Q~R{_Q∀R~(∪∂≡AQ≡@br4∀bj∪a~{'~4\``b4∀∪~{4Vb~∀% {
Q-⊗R~∀%∞Q~Ru ~∀n%↔⊗{↔,Vb~∀%→_{→0Vb~∀Hn∪α{∀Q↔⊗R4∀r∪∧uQ→_$~∀∪∪_Qβ¬&!α[∧R9→(\\@bS∂≡↓)≡@bd~∀∪0uα[ ~(∪2{∧5 ~∀∪%Qα]≥(]∧S≥≡A)≡p~∀∪%Qβ≠=λQ0Ya~R]∂P\\`b%∂≡A)<@j~∀Hj∪~{4Vb~∀%∞Q~Ruα~∀∪@{α~∀Lj∪↔⊗u↔⊗Vb4∀∪∂≡↓)≡@d\~∀j∪%Q0]1(]1~%∂≡A)<@fj~(∪∀{0=1~~∀∪α{ -'~U∀4∀∪∂≡↓)≡@dT~∀p∪%Qβ≠=λQ2Ya~R]∂P\\`b%∂≡A)<@bb~(bp∪~u~Vb~(∪∞Q~${∧~∀% {∧~(dp∪→0{→_VD~∀∪∂<A)≡@d~∀bb%∪Q29→(]14S∂≡AQ≡@dp4∀∪∀{d←1~~(∪∧{ -'~U∀4∀∪∂≡↓)≡@b`~∀b`%~{~VD~∀∪∞!~R{
!↔
R~(∪)3!∀@hb`0Q
Q⊗$Y⊗zb1↔
R~(∪)3!∀@hb`0QQ⊗$Y⊗zb1↔R~(∪)3!∀@hb`0Q∞Q⊗$Y⊗zb1~R~∀Pb`∪
=%≠β( ben8fR~∀%≥λ~(~∀∪'U¬%∨+Q∪≥
AI⊃3)∨PQ
Y↔∀R~∀∪⊃∪≠≥M∪∨≤A∀PbR~(∪↔
{-
Vb~(∪0{
 bR~∀%
PbRt`~∀∪⊃≡@j`↓⊗zdY-
~∀∪d{
Q⊗$~∀∪
!⊗R{
!⊗ZbR-0~∀j@∪0{24∀∪≥⊂~∀